home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / mail / YAM22.lha / YAM2.2 / Rexx / MarkAsRead.yam < prev    next >
Text File  |  2000-06-20  |  580b  |  20 lines
  1. /* MarkAsRead.yam                                                       */
  2. /* $VER: MarkAsRead.yam 1.0 (20.06.00) © 2000 by M.Beck <mbeck@yam.ch>  */
  3. /* Scans the current folder and sets the status of messages written by  */
  4. /* the active user to 'read'                                            */
  5.  
  6. OPTIONS RESULTS
  7. ADDRESS YAM
  8.  
  9. UserInfo STEM user.
  10. FolderInfo STEM folder.
  11. ListSelect None
  12. DO i = 0 TO folder.TOTAL-1
  13.    SetMail i
  14.    MailInfo STEM mess.
  15.    PARSE VAR mess.FROM name' <'addr'>'
  16.    IF addr = '' THEN email = mess.FROM
  17.    IF addr = user.EMAIL THEN MailStatus 'O'
  18. END
  19.  
  20.